From: Luc Teirlinck <teirllm@auburn.edu>
Date: Wed, 14 Jul 2004 23:04:14 +0000 (+0000)
Subject: (tramp-handle-verify-visited-file-modtime): `visited-file-modtime' now
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21652
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=de8c636c8f1435d5025f5141510a6c514737e084;p=emacs.git

(tramp-handle-verify-visited-file-modtime): `visited-file-modtime' now
returns a list of two integers, instead of a cons.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 0414859c7eb..d9a8d14309a 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2343,7 +2343,14 @@ If it doesn't exist, generate a new one."
 		 ;; (HIGH . LOW)?
 		 (let ((mt (visited-file-modtime)))
 		   (< (abs (tramp-time-diff
-			    modtime (list (car mt) (cdr mt)))) 2)))
+			    modtime
+			    ;; For compatibility, deal with both the old
+			    ;; (HIGH . LOW) and the new (HIGH LOW)
+			    ;; return values of `visited-file-modtime'.
+			    (if (atom (cdr mt))
+				(list (car mt) (cdr mt))
+			      mt)))
+		      2)))
 		(attr
 		 (save-excursion
 		   (tramp-send-command